home *** CD-ROM | disk | FTP | other *** search
/ Tech Arsenal 1 / Tech Arsenal (Arsenal Computer).ISO / tek-04 / win-fort.zip / TOOLUP.FOR < prev    next >
Text File  |  1991-11-09  |  658b  |  28 lines
  1. $DEFINE GDI
  2. $DEFINE USER
  3. $DEFINE COLOR
  4.       INCLUDE 'WINDOWS.FI'
  5.       SUBROUTINE TOOL_UP
  6.       IMPLICIT NONE
  7. C
  8. C Author       : Kevin B Black
  9. C Date written : 23-Oct-1991
  10. C Abtract     :
  11. C
  12. C CREATE DRAWING TOOLS
  13. C
  14. C This subroutine gets the handles for general brush and pen for drawing
  15. C operations
  16. C
  17.       INCLUDE 'WINDOWS.FD'
  18.       INCLUDE 'FWCLOCK.FD'
  19. C
  20.       FPENCOLOUR=GetSysColor(COLOR_WINDOWTEXT)
  21.       BPENCOLOUR=GetSysColor(COLOR_WINDOW)
  22.       FBRUSH=CreateSolidBrush(FPENCOLOUR)
  23.       BBRUSH=CreateSolidBrush(BPENCOLOUR)
  24.       FPEN=CreatePen(0,1,FPENCOLOUR)
  25.       BPEN=CreatePen(0,1,BPENCOLOUR)
  26.       RETURN
  27.       END
  28.